home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbcbs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-19  |  1.6 KB  |  33 lines

  1. (*===========================================================================*)
  2. (* Control Block -- Access control                                           *)
  3. (*                                                                           *)
  4. (*   Copyright 1991 by H. Roy Engehausen.  All rights reserved.              *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8. (*---------------------------------------------------------------------------*)
  9. (* Access block                                                              *)
  10. (*---------------------------------------------------------------------------*)
  11.  
  12. TYPE
  13.   access_block_ptr   = ^access_block_type;
  14.  
  15.   access_block_type  = RECORD
  16.                          access_flags : BYTE;
  17.                        END;
  18.  
  19. (*---------------------------------------------------------------------------*)
  20. (* Access flags                                                              *)
  21. (*---------------------------------------------------------------------------*)
  22.  
  23. CONST
  24.  
  25.   access_f_sysop     = $80;    (* User authentication as remote sysop requird*)
  26.   access_f_bbs       = $40;    (* User authentication as BBS required        *)
  27.   access_f_user      = $20;    (* User authentication required               *)
  28.   access_f_user_send = $10;    (* User authentication required for send      *)
  29.  
  30.   access_letter_group : str4
  31.                      = 'RBAS'; (* Letters representing each flag in order    *)
  32.  
  33.